with Ada.Text_IO;use Ada.Text_IO;
with Ada.Exceptions;use Ada.Exceptions;

package T_Mobile is
	
	-- Declaration du type Fixe qui gere une tache telephone fixe
	task type Mobile(unNum : Integer) is
	-- Signalisation d'un appel entrant
		entry APPEL_ENTRANT;
	-- Initialiser la conversation
		entry DECROCHER;
	-- Ecouter le correspondant
		entry ECOUTER(saVoix : in String);
	-- Parler au correspondant
		entry PARLER(maVoix : out String);
	-- Mettre fin a la conversation
		entry RACCROCHER;
	-- Notifier au Standard que l'on veut appeller un numéros
		entry APPELER(destinataire : in Integer);
	end Mobile;

end T_Mobile;